Top 10k strings from MicroHobby Semanal - Issue 061-064 (1986)(Hobby Press)(es).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
10 ;" "
9 ;" PARE LA CINTA ":
4 (NPROG/DOS)
4 "22",CERO;B$:
3 sum1=sum1+a:
3 pun=pun+10
3 a$)+"^2)"+"*"+
3 ;"ERROR EN LOS DATOS, REPITA":
2 ply=ory+i*16
2 plx=orx+i*16
2 num1=num2:
2 micro
2 dzj+dzi*(menu1=1
2 d$=a$(b(i)+1
2 bor=(todo=0
2 b,c,d,e,f,g,h,i,j,k,l,m,n,o,p:
2 a$="("+c$+")":
2 UNO;"PONGA EN MARCHA LA CINTA";
2 SPACE-UNO,X1
2 SPACE-UNO,CERO:
2 SPACE,LINEA:
2 SPACE,CERO:
2 I,CERO;,,:
2 DOS=UNO+UNO
2 Cargador U
2 CERO;" ";
2 C$=" Por favor, elija un programa "
2 B$=" "
2 ="L")-(378
2 ;"PULSE CUALQUIER TECLA."
2 ;"EL LABERINTO DE LEMNOS"
2 ;" ";
2 *** CINTA-MICROHOBBY ***
2 )*(menu1<8
2 (VALOR)<"A"
2 "NUMERO DE BYTES:";NUM
2 "CLAVE:";CLA
2 "64"+NPROG)
2 "5";"cara: ";
2 "5";"Programa: ";
2 "5";"Programa inexistente":
2 "5";"'R' Vuelve al menu"
2 "5";"'L' Carga el programa";
2 "32"-I;C$(
2 "22",CERO;C$(I
2 "22",CERO;B$
2 "22",CERO;
1 z(i,j)=q(i,j):
1 z(i,j)=(z(i-1
1 z(i,j)+" ")(1
1 z(dzi,dzj):
1 yy,xx;" ";
1 ymin=ymin+(z(i,2
1 ymin-d0y)*(d0y<
1 ymax=ymin:
1 ymax=ymax+(z(i,2
1 xxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxzxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzxzzzzzzzzzzzzzzzzxxxxxxxxxzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzz888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888
1 xxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxzxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzxzzzzzzzzzzzzzzzzxxxxxxxxxzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzz 8888888888888888888888888888888888888888888888888888888888888888
1 xp=plox-(5
1 xmin=xmin+(z(i,1
1 xmin-d0x)*(d0x<
1 xmax=xmax+(z(i,1
1 x(p);"x";p:
1 x(dzj+dzi*(menu1=1
1 w(i,j)=v(i,j):
1 w$="*(x-"+p$+")":
1 v(xp,ploy,(
1 ultima=w-1
1 u$=y$+"/"+
1 time=(65536
1 time0=time:
1 time-time0<tiempo
1 sig+d$+"*"+
1 reves=1000
1 raro=1.23456789
1 q(i,j)=v(i,j):
1 q$=q$+"-y":
1 q$=n$+"-y":
1 q$=f$+"-y":
1 pvar2=pvar:
1 pvar1=pvar:
1 pvar1*pvar2
1 ply=ply+lon+4
1 plx=plx+lon+4
1 ploy=ory-7
1 ploy=ory+16
1 plox=orx-2
1 plox=orx+16
1 p$+(j-(dzj+1
1 oriy=ory-8
1 oriy=ory+(-12
1 orix=orx-8
1 orix=orx+(-12
1 organo
1 orden=orden-(d(j,j)=0
1 orden=dzmin:
1 orden=(menu1=2
1 num=origy+j*uniy:
1 num=origx+j*unix:
1 nuevao=i+1
1 nu2=d(j,j):
1 nu1=d(i,j):
1 niv=orden:
1 niv=ni*.03
1 n;" PULSA ENTER PARA COMENZAR ":
1 n$=n$+"+"+y$+"/"+
1 mcd=num2*(num2>1
1 j=ultima+1
1 inv=(j-ultima>0
1 instrucciones
1 i$-(p=fin)))=0
1 fac=fac*i:
1 fac+"*(x-"+p$+")^"+
1 f(x,y1+1e-3
1 f(x,y1)+1e-6
1 f(j)=z(j-ultima,(dzj+1
1 ense=(n$="s"):
1 e(uniy))*10
1 e(unix*(ejex=1
1 e(unix))*10
1 e(i,j)=v(i,j):
1 dzmin=dzi:
1 dy=ymax-ymin
1 dx=xmax-xmin:
1 direc=50000
1 dimw=dimw+.5
1 dimq=dimq+.5
1 dime=dime+.5
1 detd=d(j,j)*detd:
1 ddj=dzi+dzj:
1 d1y=d1y+(d0y-d1y)*(d1y<d0y)
1 d1x=d1x+(d0x-d1x)*(d1x<d0x)
1 d0y=d0y*(d0y<2
1 d0x=d0x*(d0x<2
1 d(o,p)+" ")(1
1 d(i,j)=z(i,j):
1 d(i,dzj+i)=1
1 d(fi2,k)=d(ddi,k):
1 d(fi1,k)=d(fi2,k):
1 d(fi1,k)=d(fi1,k)*num1+d(fi2,k)*num2:
1 d(ddi,k)=d(fi1,k):
1 d(ddi,ddj)
1 d$=d$+a$(b(j)+(j=1
1 d$=d$+"/"+
1 d$=d$+"*"+
1 cont=cont+1
1 c$=c$+a$(b(i))+
1 c$=c$+"*"+a$(b(i)+1
1 c$="("+c$+")"
1 bor;plx,ply:
1 bor;orix+16
1 bor;lon*(hor=1
1 b$=b$+e$(o):
1 aa,bb;" ":
1 a$=c$+"*"+a$(1
1 a$=a$+"*"+
1 a$="1/2/"+a$+"*"+
1 a$="1/"+a$(2
1 a$=" "+a$+" "
1 a$,b$,c$,d$,g$,d$,c$,b$,a$,e$,d$,c$,a$,f$,e$,b$:
1 a$)+"^2"+"*"+
1 a$)+")"+"*"+
1 a$(b(i)+(i=1
1 Taylor
1 TZX BY YOXXXOY0
1 SUBRUTINA VISUALIZAR LABERINTO AL REVES
1 SUBRUTINA VISUALIZAR LABERINTO AL DERECHO
1 SUBRUTINA HIPERESPACIO
1 SUBRUTINA FINAL
1 SUBRUTINA BAJAR
1 Represe
1 R E V E S
1 PROGRAMA PRINCIPAL
1 PRESENTACION
1 PRESENTAC.
1 PASA=PASA+1
1 Organo
1 ORDEN=DZJ-1
1 Microcat2 T
1 Microcat1 T
1 Microcat
1 Matrices _
1 MICROHOBBY SEMANAL 61-64
1 MAGAZINE CASSETTE
1 Laberinto
1 Igloo
1 INICIALIZAR VARIABLES
1 INICIALIZACION
1 HOBBY PRESS
1 Fontanero E'
1 D(DZJ,DZJ)
1 Carab
1 Cara a
1 CONTROL PZAS(M3)SEGUN(M
1 CONT=CONT+1
1 CODIGO MAQUINA
1 Archivo2
1 Archivo1
1 Alger
1 A(M3)=P(M3)
1 ? "''"
1 ;C$;",MUEVE PZA.";M1;" (CASILLA?)"
1 ;C$;",MUEVE DE LA CASILLA N.":
1 ;C$;",MUEVA A LA CASILLA N. ":
1 ;C$;", MUEVE PZA. DE LA LINEA":
1 ;"z(";i;",";j;")=":
1 ;"puntos ";pun:
1 ;"numero= ";
1 ;"numero impar de parentesis":
1 ;"det es igual al producto de los elementos de la diagonal porque esta matriz es triangular"
1 ;"Tu mision consiste en"''"conseguir salir del"''"laberinto."''"Para ello dispones de"''"3 saltos hiperespacia-"''"les y de las teclas:"''"O-izquierda"''"P-derecha"''"F-bajar"''"0-salto hiperespacial"
1 ;"Te atreverias ha atravesarlo al "''"
1 ;"TERMINO"'
1 ;"TABLA DE RECORDS":
1 ;"SPACE para volver al BASIC"
1 ;"SOLUCION UNICA":
1 ;"SALTOS";
1 ;"SALTOS ";sal:
1 ;"Quieres ir viendo la resolucion en la pantalla ? (s/n)"
1 ;"Queda DET=";sig;d$;"* det"
1 ;"Para la utilizacion correcta de los programas Microcat seaconseja la consulta la rev.num.","61"
1 ;"PZA.A COMER A ";Y$;",CASILLA?":
1 ;"PUNTOS TOTALES ";pis*1000
1 ;"PISOS ";pis:
1 ;"PARA LA CINTA":
1 ;"Otra partida ? s/n"
1 ;"ORDEN=";ORDEN;": PUES SOLO HAY ";ORDEN;" FILAS INDEPENDIENTES":
1 ;"NOMBRE JUGADOR N.2 (8 c.m.)":
1 ;"NOMBRE JUGADOR N.1 (8 c.m.)":
1 ;"NO HAY SOLUCION":
1 ;"NO ES INVERTIBLE PORQUE SU DETERMINANTE ES 0.":
1 ;"NO ES INVERTIBLE PORQUE ";a$:
1 ;"MCD=";mcd;" ":
1 ;"LABERINTO DE LEMNOS"'';
1 ;"LA MATRZ TIENE QUE SER CUADRADA":
1 ;"Hallo el M
1 ;"HAY INFINITAS SOLUCIONES":
1 ;"HA GANADO ";C$:
1 ;"ESPERA":
1 ;"ERROR EN LOS DATOS, REPITE":
1 ;"ENTER para salir"'
1 ;"ENTER PARA CAMBIAR DE ESCALA"
1 ;"ENTENDIDO ?":
1 ;"ENHORABUENA,HAS CONSEGUIDO SALIR"''" DEL ";
1 ;"Dejo la fila ";
1 ;"DET=";sig;d$;"*";detd;"=";
1 ;"Cambio la fila ";
1 ;"CORRECTO"
1 ;",SINO TENDREMOS GRAVES COMPLICACIONES"
1 ;", TIENE UNA LINEA":
1 ;"'";"s";#1
1 ;" para no tener 0 en la diagonal.";:
1 ;" con la ";
1 ;" QUIERES VOLVER A JUGAR? (S/N) "
1 ;" PUNTOS [00000] RECORD [00000]";
1 ;" PULSA UNA TECLA PARA COMENZAR ":
1 ;" NIVEL [1] PECES [
1 ;" EL NIVEL DE AGUA ESTA A LA DERECHA DE LA PANTALLA. LOS MANDOS SON:"
1 ;" EL FONTANERO":
1 ;" EL FONTANERO ES ZURDO";
1 ;" =";num2;"* ";
1 ;" +";num1;"* ";
1 ;" MUY BIEN ! PARA TI SE ACABARON EL FRIO Y LA NIEVE PARA SIEMPRE YA QUE TE HAS GANADO UN CRUCE- POR LAS ISLAS DEL CARIBE. "
1 ;" 10>REM Pulsa ENTER y adio";
1 ;" "
1 5- SALIRr
1 .C.D. de los numeros que me des."
1 ,i);"=";d(i,dzj)/d(i,i):
1 +menu1+(menu1=1
1 +"("+d$+")":
1 +"("+d$+")"
1 +"("+c$+")+"+c$+"/"+a$(1
1 +"("+c$+")":
1 +"("+a$(b(j)+1
1 +"("+a$(b(i)+1
1 *menu2-(MENU2=5
1 *i,xrt*(xrt
1 *i,oriy+16
1 *(grado-ultima)+1
1 *(a$(i)=".")+11
1 *(a$(i)="-")):
1 )=x*((x>64
1 )=(y-origy)/uniy*16
1 )=(x-origx)/unix*16
1 )="+*")+(c$(1
1 )-ymin)*(z(i,2
1 )-ymax)*(z(i,2
1 )-xmin)*(z(i,1
1 )-xmax)*(z(i,1
1 ),lon*(hor=0
1 )+uniy*(ejex=0
1 )+(p=fin)))=1
1 )+(menu1=5
1 )+"^("+c$+"-1)*"+
1 )+"^"+c$+"*(
1 )+"^"+c$+"*
1 )*(menu2<6
1 (yy,xx)=40
1 (ymin/uniy)*uniy)*(d0y
1 (xmin/unix)*unix)*(d0x
1 (s/n)? ",e$:
1 (s$+"(i,j)"):
1 (num1/num2)*num2-num1):
1 (nu2/mcd):
1 (nu2*nu1)*
1 (nu1/mcd):
1 (n$="s")+(n$="n")=1
1 (dzj-dzi-1
1 (dzi=raro)+(dzi
1 (a$(i))-48
1 ("+a$(b(i)+1
1 '" 0- ";n$':
1 '" ";j;"- ";
1 "x";i;"=";d(i,dzj);"/";d(i
1 "numero impar de parentesis !!!":
1 "numero de incognitas= ";dzj:
1 "mete f(x)=";
1 "VALOR INICIAL PARA Y = ";Y0
1 "VALOR DEL SEMIINTEVALO=";SEMI
1 "UNIDAD PARA Y =";UNIY
1 "UNIDAD PARA X =";unix:
1 "Se puede pulsar mas de una tecla a la vez."
1 "Queda DET=";sig;d$;"* det"
1 "Punto para el desarrollo "'"x0=";
1 "PULSA ENTER";
1 "PARA x=";x;" NO HAY SOLUCION":
1 "OTRA PARTIDA
1 "ORIGEN EN Y =";ORIGY:
1 "ORIGEN EN X =";origx:
1 "Numero de filas= ";dzi
1 "Numero de ecuaciones= ";dzi
1 "Numero de columnas= ";dzj:
1 "METE f(x,y)=";
1 "METE f(x)=";
1 "MENU DE ENTRAMADOS","1-PLOTEADO SIMPLE","2-PLOTEADO DOBLE","3-PLOTEADO TRIPLE","4-SIN ENTRAMADO","5-DOBLE RAYADO","6-RAYADO SIMPLE","7-PUNTO RAYA"
1 "LIMITE SUPERIOR DE x = ";x1:
1 "LIMITE INFERIOR DE x = ";x0:
1 "INPUT DE FUNCIONES","1- y=f(x)","2- f(x,y)=0","3-MATRIZ DE PUNTOS","4-ELCCION DE ESCALA","5- SALIR"
1 "I(";i;",";j;")=";d(i,dzj+j);"/";d(i,i);"=";d(i,dzj+j)/d(i,i):
1 "GRADO DEL DESARROLLO=";GRADO
1 "Este programa simula a un organo de escala natural."
1 "ELIGE EL NIVEL DE 1 A 5",ni:
1 "E-Fontanero","F-Taylor"
1 "E","S","R","D","F","Y","G","U","H","I","J"
1 "E","L"," ","L","A","B","E","R","I","N","T","O"," ","D","E"," ","L","E","M","N","O","S"
1 "DIRECCION INICIAL:";DIR
1 "DIRECCION INCIAL:";DIR
1 "DESEA INTRUCCIONES(S/N) ? ",k$:
1 "D-Microcat","E-Alger","F-Combinato","G-Pantallas"
1 "Cada vez que pulse una tecla, esta cambiara de color."
1 "CUANTOS PUNTOS HAY ? ";DIM1:
1 "COMO SE LLAMA LA MATRIZ ? ";S$
1 "Buenas melodias."
1 "A-Laberinto","B-Organo","C-Matrices"
1 "A-Archivo1","B-Archivo2","C-Igloo","D-Represe"
1 "-")*(a$(i)
1 " TAMBIEN TENEMOS UNA RECOMPENSA A NUESTRO DURO ESFUERZO,CADA 1000 PUNTOS RECIVIREMOS UN FONTANERO MAS PARA QUE AYUDE":
1 " SOLO PODRA SALVARSE USANDO SU PERICIA,ARREGLANDO LAS CANERIAS QUE SE ROMPEN Y ACCIONANDO LA BOMBA DE ACHIQUE"
1 " ES MUY IMPORTANTE ACORDARSE DE QUE";
1 " EN ALGUN OSCURO SOTANO NUESTRO FONTANERO DEBERA ENFRENTARSE A LA MUERTE POR AXFIXIA"
1 " DISPONDRAS DE 3 FONTANEROS PARA PASAR LA PRUEVA,ARRIBA,A LA DERECHA ESTAN LOS FONTANEROS QUE TE QUEDAN"
1 " CUENTAS CON CINCO NIVELES DE DESTREZA CON LOS QUE PODRAS DEMOSTRAR TU HABILIDAD Y TUS REFLEJOS, DESDE EL FACIL,EL 1, HASTA EL IMPOSIBLE,EL CINCO"
1 " 8 GIRO COMO RELOJ"
1 " 7 AVANZAR":
1 " 6 ARREGLAR CANERIAS,ACCIONAR LA BOMBA":
1 " 5 GIRO CONTRARIO AL RELOJ":
1 " PULSE UN TECLA":
1 " PULSE UNA TECLA ":
1 " MENU ","1- MATRIZ INVERSA","2- RESOLVER ECUACIONES","3- HALLAR DETERMINANTES","4- MAX. COMUN DENOMINADOR","5- ORDEN DE UNA MATRIZ","6- INPUT MATRIZ","7- INPUT ECUACIONES"," PULSA SU TECLA "
1 " !!!BUENA SUERTE!!!":
1 VARIABLE DE ONTROL
1 Se AhOgA eN eL hIeLo
1 PoS. iNiCiAl
1 PaNtAlLa FiNaL
1 NOMBRE JUGADORES
1 MuSiCa 3
1 MIGUEL ANGEL GOMEZ
1 Le PiLlA eL pInGuInO
1 JUGANDO EN EL TABLERO
1 IMPR. PZAS. ENTRADA (M)
1 FiN dE jUeGo
1 FIN ** ALQUER **
1 DIBUJO TABLERO
1 CoGe Un PeZ
1 CONTROL PZAS EN LINEA
1 CONTROL PZAS (M) (M3)
1 CONTROL ENTRADA AL JUEGO
1 CONTR.PZA. ENTRADA (M)
1 Amando de la Puente 1985"
1 Amando de la Puente
1 *** HASTA LA PROXIMA ***
1 VaRiAbLeS
1 Por favor, elija un programa
1 PaNtAlLa
1 MuSiCa 2
1 MuSiCa
1 MoViMiEnTo
1 Enrique Pascual Lopez
1 PULSA SU TECLA A
1 C